1 11 111 pattern in qbasic